home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1999 September / PC Action Issue 81 (September 1999).ISO / vft / _setup.1 / BasicVR.cst / 00005_open.ls < prev    next >
Encoding:
Text File  |  1997-03-03  |  496 b   |  17 lines
  1. on mouseUp
  2.   -- open movie: use for a button to open a QTVR movie
  3.   -- change to "on exitframe" to put in a frame script
  4.   global gQTVRObj
  5.   
  6.   -- prepare values to be passed to xtra. 
  7.   -- rectToStr is a lingo function in movie script 1
  8.   set qtvrRect = rectToStr(the rect of sprite 10)
  9.   
  10.   -- to hard-code a particular file, replace the 
  11.   -- right side of the next line to the pathname
  12.   set qtvrFile =  "pathname to my movie"
  13.   
  14.   
  15.   QTVROpen(gQTVRObj, qtvrFile, qtvrRect, "visible")
  16.   
  17. end